home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 105 / 105.d81 / world map (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  64 lines
  1. 100 dv=peek(186):ifdv<8thendv=8
  2. 110 print"[147]"chr$(142)
  3. 195 ba=52176
  4. 200 poke53281,0:poke53280,0:poke646,1
  5. 210 print"[147] [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
  6. 220 print " [221]"chr$(28)" [178]  [178] [213][195][201] [178][195][201] [178]   [178][195][201]  [213][201][213][201] [213][195][201] [178][195][201] [146]"chr$(5)"[194]"
  7. 230 print " [221]"chr$(28)" [221][213][201][221] [221] [221] [171][178][203] [221]   [221] [221]  [221][202][203][221] [171][195][179] [171][195][203] [146]"chr$(5)"[221]"
  8. 240 print " [221]"chr$(28)" [221][221][221][221] [221] [221] [221][202][201] [221]   [221] [221]  [221]  [221] [221] [221] [221]   [146]"chr$(5)"[221]"
  9. 250 print " [221]"chr$(28)" [202][203][202][203] [202][195][203] [177] [177] [173][195][189] [177][195][203]  [177]  [177] [177] [177] [177]   [146]"chr$(5)"[221]"
  10. 260 print " [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
  11. 265 gosub60000
  12. 275 sys57812"wscr",dv,0:poke780,0:poke781,208:poke782,203:sys65493
  13. 280 sys57812"wmap",dv,0:poke780,0:poke781,0:poke782,168:sys65493
  14. 420 rem prompt for new time
  15. 430 poke214,8:print
  16. 440 print"   default is 30 seconds[145][145][145]"
  17. 450 print"   enter delay time in seconds ";:gosub50000:dt%=val(q9$)
  18. 460 ifdt%<1ordt%>999thendt%=30
  19. 510 rem poke delay time
  20. 520 mn%=dt%/60
  21. 530 sc%=dt%-mn%*60
  22. 540 rem calculate bcd minutes
  23. 550 ms%=mn%/10
  24. 560 ls%=mn%-ms%*10
  25. 570 mn%=ms%*16+ls%
  26. 580 poke ba+322,mn%
  27. 590 rem calculate bcd seconds
  28. 600 ms%=sc%/10
  29. 610 ls%=sc%-ms%*10
  30. 620 sc%=ms%*16+ls%
  31. 630 poke ba+323,sc%
  32. 640 rem select random color start
  33. 650 i0=ti:rem get jiffy clock time
  34. 660 i%=int(i0/70)
  35. 670 i%=i0-i%*70
  36. 680 i%=i%*2+1
  37. 690 poke ba+936,i%
  38. 700 rem activate world map
  39. 710 sys ba
  40. 720 print"[147][159] world map is enabled with a delay of"
  41. 730 printdt%"[159]seconds."
  42. 740 end
  43. 10000 open15,8,15,"s0:world map":close15:save"world map",8:end
  44. 50000 q9$="":u9=53280:poke198,0
  45. 50010 geta$
  46. 50020 poke646,rnd(1)*15+1:print"[164][157]";:ifa$=""then50010
  47. 50030 ifa$=chr$(13)thenprint" ":return
  48. 50040 if(a$=chr$(20)andlen(q9$))thenq9$=left$(q9$,len(q9$)-1):goto50080
  49. 50050 iflen(q9$)>=3thent9%=peek(u9):pokeu9,1:pokeu9,t9%:goto50010
  50. 50060 ifa$<"0"ora$>"9"then50010
  51. 50070 q9$=q9$+a$
  52. 50080 print""a$;:goto50010
  53. 60000 print"":z$=" [152]                                      ":poke214,10:print
  54. 60010 print" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":fori=0to11:printz$:next
  55. 60020 print" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
  56. 60030 z$(0)="w o r l d    m a p":z$(1)="by john campbell
  57. 60040 z$(2)[178]"v1.0 (c) 1993 by softdisk, inc."[170][199](13)
  58. 60050 z$(3)[178]"this program is the copyrighted work
  59. 60060 z$(4)="of softdisk publishing.  it is not"
  60. 60070 z$(5)="shareware or in the public domain."
  61. 60080 z$(6)="report illegal distribution of":z$(7)="this program by calling"
  62. 60090 z$(8)="1-800-831-2694 or 1-318-221-8718.":poke214,12:print
  63. 60100 fori=0to8:printtab(20-(len(z$(i))/2))""z$(i):next:return
  64.